home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Internet Pratica
/
IPRAT_01.iso
/
ASP
/
ASPapp Portal
/
click_thru.asp
< prev
next >
Wrap
Text File
|
2002-03-12
|
1KB
|
79 lines
<!-- #include file="i_utils.asp" -->
<%
%>
<%
LinkId = request("LinkId")
if LinkId <> "" then
set rs = cn.Execute ("SELECT URL, ClickThrus FROM Links WHERE LinkId = " & LinkId)
URL = rs("URL")
ClickThrus = rs("ClickThrus")
if not IsNull(ClickThrus) then
ClickThrus = ClickThrus + 1
else
ClickThrus = 1
end if
rs.Close
''' increment the click_thrus
cn.Execute ("UPDATE Links SET ClickThrus = " & ClickThrus & " WHERE LinkId = " & LinkId)
response.redirect URL
end if
%>
<%
dim dummy
do_search = request("do_search")
''' request form keys
''' request action
action = lcase(request("action"))
''' action case handler
select case action
end select
' no action was specified, so handle the default case(s)
%>
<!-- #include file='i_header.asp' -->
<!-- #include file='i_menu.asp' -->
<%
display_errs
display_msg
%>
<table class='menuTable' >
<input type=hidden name="dummy" value="<% =dummy %>">
</tr>
</table>
<!-- #include file=i_footer.asp -->
<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
on error goto 0
%>